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DECUS NO. 8-490 


DECUS Program Library Write-up 

TAPE ALTERATION PROGRAM 
ABSTRACT 


The program is used to examine and change the contents of 
any location on a Dectape. One block of Dectape is called down 
into core, its contents examined and changed if necessary, one 
location at a time. The block is then written back onto the 
tape. 

Loading 

The program is supplied in Binary format and is loaded 
using the Binary Loader. The Start Address is 0200. 

Operating Instructions 

When the program is started, the heading is outputted. 

Note DTA1 must be used. Type in the block number to be found, 

terminating with a period. When the block is found, a CR/LF 

is outputted, and the program waits for the user to ask a 

location to open. This is done by typing a 3 figure octal 

digit 0.-200. and ending with a backslash (/). The contents 

are then outputted. If a Return is then typed, the location 

is closed, with no change to the contents and the program 

waits for the next location to be opened. The contents can 

be changed by typing the new 4 digit contents after the original 

contents are typed out. The program will output a CR/LF after 

4 digits are typed, and the location is closed. When all 

alterations are complete, CTRL/F will write the amended block 

oack onto the tape, and another block number can then be typed 

# 

in. At this point a return to any Master program starting at 
7600 is possible by typing CTRL/C. Any read, write or select 









2 


error is typed out with a Retry option. Correct the error, type 
*Y' and continue. 


Storage and Equipment 

The program uses locations 0-1641 and was written for 
TC08-TU56 or TC01-TU55 Dectape. 


a 






0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0030 
0031 
0032 
0033 
0034 
00 35 
0036 
0037 
0040 
0041 
0042 
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0044 
0045 
0046 
0047 
0050 
0051 
00 52 
0053 
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0055 
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0057 
0060 
0061 
0062 
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0064 
0065 
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0067 
007 0 
007 1 
007 2 


/TAPE ALTKKATIOf 
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/TAPE ALTERATION 

/COPYRIGHT C.N.GOODE DEPARTMENT 
/UNIVERSITY Of EDINBURGH. 197 1. 

/ 

/ 


OF PHARMACOLOGY 


00 

*0020 

TYPE* 

/ PAGE 

TYPSTG 

0 CONSTANTS. 

/TYPSTRING ROUTINE 

0467 

ECHO, 

TTY 

/DOES WHAT IT SAYS 

047 5 

CRLF, 

TYCR 

/ THIS ONE TOO 

0506 

TTYQ1, 

TTYQ 

/YES OR NO ROUTINE 

0553 

BLNO, 

BLNO 1 

/ADDR OF "BLOCK NUMBER ? " 

0302 

TITLE, 

TITLE1 

/ADD OF TITLE STRING 

0 564 

WHAT, 

WHAT 1 

/ADDR OF WHAT PRINT ROUTINE 

057 1 

WHAT2, 

WHAT3 

/ADDR OF "WHAT ? " 

0000 

ANSI, 

0 

/ TAPE BLOCK NO. 

1400 

C0NT2, 

C0NT22 

/ ROUTINE TO GET LOCN. <& TYPE OUNT 

0000 

L0C2, 

0 

/FULL REQUESTED LOCATION 

0000 

CORE, 

0 

/ CONTENTS OF REQUESTED LOCATION 

0601 

TAPE, 

IDTAPE 

/ ADDR OR SUBROUTINE 

027 0 

ERROR, 

ERROR1 

/ ADDR OF ERROR ROUTINE 

0327 

ERR, 

ERR 1 

/ ADDR OF ERROR PRINTOUT 

0336 

SPACE, 

SPACE 1 

/ ADDR OF SPACING STRING 

0000 

NEW, 

0 

/KEEPS NEW CONTENTS AS ITS MADE 

0000 

NEW1, 

0 

/STORES COMPLETED NEW CONTENTS 

0000 

LOC, 

0 

/KEEPS NEW LOCATION AS ITS MADE 

0000 

LOCI, 

0 

/COMPLETED LOCATION 

1000 

LOCDMP, 

1000 

/ ADDS STORE ADDRESS 

0000 

ALT, 

0 

/ PARTS OF LOCATIONS 

7563 

CARET, 

-215 

/ CIA OF RETURN 

7 77 4 

FOUR, 

-4 

/ HOW MANY NUMBERS? 

777 4 

FOUR1, 

-4 

/ HOLD RESET VALUE 

0007 

MASK 1, 

7 

/ MASKS OUT ASCII CODE 

7774 

C0UNT2, 

-4 

/ HOW MANY NUMBERS 

7774 

COUNT 3, 

-4 

/ HOLD RESET VALUE 

7521 

SLASH, 

-257 

/ CIA OF BACKSLASH 

0260 

ASCII, 

260 

/ REST OF ASCII CODE FOR TYPEOUT 

077 0 

CHECK, 

770 

/ MASKS OUT FOR LEGALITY CHECK 

7 520 

ASCODE, 

-260 

/ CIA OF ASCII FOR LEGALITY CHECK 

7 57 2 

CTRLF, 

-206 

/ CIA OF CONTROL F. 

1600 

C0NT4, 

C0NT44 

/ ROUTINE TO WRITE BACK 

0206 

BLOCK, 

BLOCK 1 

/GET BACK TO ASK BLOCK NO. 

1613 

RETRY 1, 

RETRY2 

/ ASK RETRY? 

1603 

G02, 

G022 

/WRITE RETRY 

0260 

GO 1, 

GO 1 1 

/ READ RETRY 

0355 

WTKLP, 

WTKLP1 

/ WRITE LOCKED TYPEOUT 

0 341 

SEL, 

SEL 1 

/ SELECT ERROR TYPEOUT 

0 37 4 

QUEST 2, 

QUEST3 

/ ADDR OF QUESTION MARK 

7600 

OUT, 

7 600 

/ GO HOME TO PS8 

7 57 5 

PS8, 

-20 3 

/ CIA OF CTRL/C 


/CHARACTER STRING TYPEOUT (DIGITAL 8-20-U~ASCII) 
/ECHO AND CR, LF ROUTINES 


/YES , NO , ROUTINE 
*0400 


REPEATS QUESTION IF STUPID ANSWER 
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0400 

0000 

TYPSTG* 

0000 

0401 

3256 


DCA 

TEMQ 

0402 

3260 


DC A 

FLAG 

0403 

1656 

TSCC 1 * 

TAD 

I TEMQ 

0404 

7433 


7 433 /MQL SHL 

0405 

0005 


5 


0406 

4213 


JMS 

TSCC2 

0407 

1656 


TAD 

I TEMQ 

0410 

4213 


JMS 

TSCC 2 

041 1 

2256 


ISZ 

TEMQ 

0412 

5203 


JMP 

TSCC 1 

0413 

0000 

TSCC2* 

0 


0414 

0261 


AND 

K77 

0415 

3257 


DCA 

TEMR 

0416 

1260 


TAD 

FLAG 

0417 

7640 


SZA 

CL A 

0420 

5230 


JMP 

TYPSP 

0421 

1257 


TAD 

TEMR 

0422 

7450 


SNA 


0423 

5226 


JMP 

. + 3 

0424 

4247 

TYPAT* 

JMS 

PRINT 

0425 

5613 


JMP 

I TSCC2 

0426 

2260 


ISZ 

FLAG 

0427 

5613 


JMP 

I TSCC2 

0430 

3260 

TYPSP* 

DCA 

FLAG 

0431 

1257 


TAD 

TEMR 

0432 

7041 


CIA 


0433 

7450 


SNA 


0434 

5224 


JMP 

TYPAT 

0435 

7001 


I AC 


0436 

7650 


SNA 

CLA 

0437 

5600 


JMP 

I TYPSTG 

0440 

1265 


TAD 

SKI PMA 

0441 

3251 


DCA 

SWITCH 

0442 

1257 


TAD 

TEMR 

0443 

4247 


JMS 

PRINT 

0444 

1266 


TAD 

SKIPPA 

0445 

3251 


DCA 

SWITCH 

0446 

5613 


JMP 

I TSCC2 

0447 

0000 

PRINT* 0 



0450 

1262 


TAD 

M40 

0451 

7510 

SWITCH* 

SPA 


0452 

1263 


TAD 

Cl 00 

0453 

1264 


TAD 

C240 

0454 

4267 


JMS 

TTY 

0455 

5647 


JMP 

I PRINT 

0456 

0000 

TEMQ* 

0 


0457 

0000 

TEMR* 

0 


0460 

0000 

FLAG* 

0 


0461 

007 7 

K77* 

77 


0462 

7740 

M40* 

-40 


0463 

0100 

Cl 00* 

100 


0464 

0240 

C240* 

240 


0465 

7 500 

SKI PM A* 

SMA 


0466 

7510 

SKIPPA* 

SPA 
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0467 

0000 

TTY* 

0 


047 0 

6046 


TLS 


047 1 

7 300 


CL A CLL 


047 2 

6041 


TSF 


047 3 

5372 


JMP .-1 


047 4 

5667 


JMP I TTY 


047 5 

0000 

TYCR* 

0 


0476 

30 


CL A CLL 


0477 

1304 


TAD CR 


0500 

4267 


JMS TTY 


0501 

1305 


TAD LF 


0502 

4267 


JMS TTY 


0503 

5675 


jMp i TYCR 


0504 

0215 

CR* 

0215 


0505 

0212 

LF* 

0212 


0506 

0000 

TTYQ* 

0 /START 

OF Y OR N CHECK ROUTINE 

0507 

6034 


KRS 

0510 

6031 


KSF 


0511 

5310 


JMP .-1 


0512 

6036 


krb /READ 

TTY 

0513 

3346 


DCA ANS /SAVE 

REPLY 

0514 

1346 


TAD ANS 

/BRING IT BACK 

0515 

4421 


JMS I ECHO 

/ECHO TTY 

0516 

1346 


TAD ANS /BRING 

REPLY BACK 

0517 

1347 


TAD YES 

/CIA OF Y WAS IT A Y? 

0520 

7 450 


SNA 

0521 

5340 


JMP YESE 

/GO TO Y EXIT 

0522 

7300 


CLA CLL /NO CHECK FOR N 

0523 

1346 


TAD ANS 


0524 

1350 


TAD NO 

/CIA OF N 

0525 

7450 


SNA /N? 


0526 

5343 


JMP NOE 

/WAS N GO TO NO EXIT 

0527 

7 300 


CLA CLL /NOT EITHER 

0530 

1351 


TAD QUES 

/BRING UP ASCII FOR? 

0531 

4421 


JMS I ECHO 


0532 

1306 


TAD TTYQ 

/BRING DOWN RETURN ADD 

0533 

1352 


TAD THREE 

/”3 TO ADJUST THE RETURN ADD 

0534 

3306 


DCA TTYQ 

/PUT IT UP. 

0535 

7300 


CLA CLL 


0536 

4422 


JMS I CRLF 

/RETURN TTY 

0537 

57 06 


JMP I TTYQ 

/GO BACK & TRY AGAIN 

0 540 

4422 

YESE* 

JMS I CRLF 

/CRLF! 

0541 

1352 


TAD THREE 

/PUT THREE(-) IN AC 

0542 

57 06 


JMP I TTYQ 

/GO BACK 

0543 

4422 

NOE* 

JMS I CRLF 


0544 

7300 


CLA CLL 


0545 

5706 


JMP I TTYQ 

/GO BACK WITH AC CLEAR 

0546 

0000 

AMS* 

0 /LOCATION FOR REPLY 

0547 

7 447 

YES.* 

-331 


0550 

7462 

NO* 

-316 


0551 

0277 

QUES* 

277 


0552 

7775 

THREE* 

-3 


0553 

0214 

BLNOl* 

0214 


0554 

1703 


1703 



5 







/TAPE ALTERATION 


PALS 


PAGE 1-3 


0555 

1340 


1340 


0556 

1685 


1685 


0557 

1508 


1508 


0560 

0588 


0588 


0561 

4077 


4077 


0568 

4040 


4040 


056 3 

0001 


0001 

/ EOS OF BLOCK NUMBER 

0564 

■"*00 

WHAT 1* 

CL A CLL 

0565 

± 087 


TAD WHAT8 / ADD OF WHAT 

0566 

4480 


JMS I 

TYPE /TYPE IT 

0567 

4488 


JMS I 

CRLF / TYPE IT AND 

0570 

5431 


JMP I 

C0NT8 

057 1 

4040 

WHAT 3^ 

4040 


0578 

87 10 


87 10 


0573 

0184 


0184 


057 4 

4077 


4077 


057 5 

0001 


0001 

/ EOS OF WHAT ? 


CRLF 
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/ PRINTS TITLE * ASKS AND GETS BLOCK NO. 
*0200 


0200 

7300 


CLA CLL 


0201 

4422 


JMS I CRLF 

/CR> LF REALLY!! 

0202 

1025 


TAD TITLE 

/ GET ADDR FOR TITLE PRINT 

0203 

4420 


JMS I TYPE 

/ REALLY! 

0204 

4422 


JMS I CRLF 


0205 

22 


JMS I CRLF 

/ UP SPACE AGAIN 

0206 

/ 300 

BLOCK 1, 

CLA CLL 


0207 

3030 


DCA ANSI 

/ CLEAR PREVIOUS BLOCK NO 

0210 

1024 


TAD BLNO 

/ GET ADD OF BLOCK NO. QUESTION 

0211 

4420 


JMS I TYPE 


0212 

6034 

CONT* 

krs 


0213 

6031 


KSF 


0214 

5213 


JMP .-1 

/ WAIT FOR ANSWER 

0215 

6036 


KRB 


0216 

327 5 


DCA ANS2 

/ SAVE IT 

0217 

127 5 


TAD ANS2 

/GET IT 

0220 

107 2 


TAD PS8 / CIA 

OF CTRL/C 

0221 

7450 


SNA / WAS 

IT CTRL/C 

0222 

547 1 


JMP I OUT 

/ YES. GO HOME TO PS8• 

0223 

7300 


CLA CLL 


0224 

127 5 


TAD ANS2 

/ GET IT 

0225 

4421 


JMS I ECHO 

/ REPEAT THE CHARACTER 

0226 

127 5 


TAD ANS2 

/ BRING IT BACK 

0227 

1301 


TAD STOP 

/ CIA OF PERIOD 

0230 

7450 


SNA / WAS 

IT A PERIOD 

0231 

5253 


JMP CONTI 

/ YES 

0232 

7300 


CLA CLL /NO 


0233 

127 5 


TAD AMS2 

/ GET IT YET AGAIN 

0234 

027 6 


AND MASK 

/ REMOVE THE RUBBISH 

0235 

327 5 


DCA ANS2 

/ BETTER KEEP THE GOOD BITS 

0236 

1030 


TAD ANSI 

/ WHER ALL GOOD THINGS ARE STORED 

0237 

7 004 


RAL 


0240 

7006 


RTL /GIVE 

IT A WHIRL 

0241 

127 5 


TAD ANS2 

/ ADD THE GOOD BITS 

0242 

3030 


DCA ANSI 

/GIVE THEM A REST 

0243 

2277 


ISZ COUNT 

/ HOW MANY TIMES -4 

0244 

5212 


JMP CONT 

/GO BACK 

0245 

7 300 


CL A CLL 


0246 

3030 


DCA ANSI 

/ CLEAR THE MUCK OUT 

0247 

1 300 


TAD COUNT 1 

/ RESET COUNT 

0250 

3277 


DCA COUNT 


0251 

4422 


JMS I CRLF 

/UP SPACE . MAKES IT LOOK NICE! 

0252 

5210 


JMP CONT-2 

/ ASK BLOCK NO. AGAIN 

0253 

7 300 

CONTI* 

CLA CLL 


0254 

1 300 


TAD COUNT 1 

/RESET COUNT1 

0255 

327 7 


DCA COUNT 


0256 

10 30 


TAD ANSI 

/GET THE BLOCK NO. 

0257 

3262 


DCA W2A / DEPOSIT BLOCK NO. TO BE READ 

0260 

4434 

GOl 1* 

JMS I TAPE 

/ GO TO READ SUBROUTINE 

026 1 

1402 


1402 / CODE 

TO READ DTA1. SEARCH. REVERSE. 

0262 

0000 

W 2 A* 

0 / BLOCK NO. 

0263 

7 57 7 


7577 / WORD 

COUNT FOR ONE BLOCK 

0264 

0777 


777 / DUMP 

ADDR -1 
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0265 
0266 
0267 
027 0 
027 1 
0272 
027 3 
027 A 
027 5 
027 6 
0277 
0300 
0301 
0302 
0303 
030 4 
0305 
0306 
0307 
0310 
031 1 
0312 
0313 
031A 
0315 
0316 
0317 
0320 
0321 
0322 
0323 
032 A 
0325 
0326 
0327 
0330 
0331 
0332 
0333 
033A 
0335 
0336 
0337 
03A0 
03A1 
03A2 
03A3 
03 A A 
03A5 
03A6 
03A7 
0350 
0351 
0352 
0353 


0035 


ERROR 

/ IN 

CASE OF COCK-UP 

AA22 


JMS I 

CRLF 


5A3 1 


JMP I 

C0NT2 

/ ASK AND TYPE CON’ 

AA22 

ERROR 1* 

JMS I 

CRLF 

/ UP SPACE 

1036 


TAD ERR / ADD 

OF ERROR PRINT 

AA20 


JMS I 

TYPE 

/ PRINT IT 

AA22 


JMS I 

CRLF 

/ UP AGAIN 

"10 


JMP CONT-2 

/ REASK BLOCK NO. 

0000 

ANS2, 

0 

/ SAVE REPLY 

0007 

MASK, 

7 



7773 

COUNT, 

-5 

/ HOW 

MANY NO * S 

7773 

COUNT 1, 

-5 

/RESETS ABOVE 

7522 

STOP, 

-256 



2A0 1 

TITLE1, 

2A0 1 



2005 


2005 



A00 1 


A00 1 



1 A2A 


1 A2A 



0522 


0522 



012A 


012A 



1 1 17 


1 1 17 



1 6A0 


16A0 



2022 


2022 



1707 


17 07 



2201 


2201 



1 5A0 


1 5A0 



50A0 


50A0 



2A0 1 


2A0 1 



2005 


2005 



A00 A 


A00 A 



2211 


2211 



2605 


2605 



A061 


A 06 1 



A05 1 


A05 1 



0001 


0001 

/ EOS 

OF TITLE STRING 

2A0 1 

ERR 1, 

2A0 1 



2005 


2005 



A005 


A00 5 



2222 


2222 



1722 


1722 



A0A1 


A0A1 



0001 


0001 

/ EOS 

OF TAPE ERROR ! 

A0A0 

SPACE 1, 

A0A0 



A0A0 


A0A0 



0001 


0001 

/ EOS 

OF SPACING ROUTINE 

2305 

SEL 1, 

2305 



1A05 


1 A05 



032A 


032A 



A00 5 


A005 



2222 


2222 



1722 


1722 



A0A 1 


A0A1 



A022 


A022 



052A 


052A 



2231 


2231 



A 07 7 


A077 




8 








I 




/TAPE ALTERATION 


PAL 8 


PAGE 2-2 


0354 

0001 


0001 

0355 

2516 

WTKLP1, 

2516 

0356 

1124 


1124 

0357 

4027 


4027 

0360 

2211 


2211 

0361 

2405 


2405 

0362 

4014 


4014 

0363 

,<7 03 


1703 

0364 

i 305 


1305 

0365 

0440 


0440 

0366 

4140 


4140 

0367 

2205 


2205 

0370 

2422 


2422 

037 1 

3140 


3140 

0372 

7740 


7740 

037 3 

0001 


0001 

037 4 

4077 

QUEST3* 

4077 

037 5 

0001 


0001 


/ EOS OF SELECT ERROR 


/ EOS OF "UNIT WRITE LOCKED ! RETRY ? 
/ EOS ? 
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/IDTAPE Sim- ROUTINE AS IN INTRO TO PROGRAMMING 
/ MODIFIED FOR ERRORS AS BELOW. 


0600 

7400 

*0600 
ID7 400, 

7400 

0601 

0000 

I DTAPE, 

0 

0602 

7200 


CL A 

0603 

1601 


TAD I IDTAPE 

0604 

"36 


DCA IDCODE 

0605 

2201 


ISZ IDTAPE 

0606 

1336 


TAD IDCODE 

0607 

0200 

ID0200, 

AND ID7 400 

0610 

1332 


TAD ID0010 

0611 

6766 


DTCA DTXA 

0612 

677 4 


DTLB 

0613 

1330 


TAD IDWC 

0614 

37 31 


DCA I IDCA 

0615 

7006 

IDSERR, 

RTL 

0616 

7004 


RAL 

0617 

7220 


CL A CML 

0620 

1207 


TAD ID0200 

0621 

7420 

IDCONT, 

SNL 

0622 

1333 


TAD ID0400 

0623 

6764 


DTXA 

0624 

6773 


DTSF DTRB 

0625 

5224 


JMP .-1 

0626 

7510 


SPA 

0627 

5304 


JMP OOPS 

0630 

6761 


DTRA 

0631 

7 006 


RTL 

0632 

7 006 


RTL 

0633 

7 6 30 


SZL CLA 

0634 

1335 


TAD ID0002 

0635 

1730 


TAD I IDWC 

0636 

7 040 


CM A 

0637 

1601 


TAD I IDTAPE 

0640 

7040 


CM A 

0641 

7 640 


SZA CL A 

0642 

5221 


JMP IDCONT 

0643 

7430 


SZL 

0644 

5222 


JMP IDCONT+1 

0645 

2201 


ISZ IDTAPE 

0646 

1601 


TAD I IDTAPE 

0647 

37 30 


DCA I IDWC 

0650 

2201 


ISZ IDTAPE 

0651 

1601 


TAD I IDTAPE 

0652 

37 31 


DCA I IDCA 

0653 

1336 


TAD IDCODE 

0654 

6774 


DTLB 

0655 

7001 


I AC 

0656 

0336 


AND IDCODE 

06 57 

7 106 


RTL CLL 

0660 

7006 


RTL 

0661 

1334 


TAD 100130 

0662 

6764 


DTXA 

0663 

6773 


DTSF DTRB 


/WE HAVE AN ERROR 


19 


71 VOL . 1 


10 












/TAPE ALTERATION 


PALS 


PAGE 3-1 


066 A 
0665 
0666 
0667 
067 0 
067 1 
067 2 
0673 
067 A 
067 5 
0676 
0677 
0700 
0701 
0702 
0703 
070 A 
0705 
07 06 
07 07 
07 10 
07 1 1 
07 1 2 
07 13 
071A 
07 15 
07 16 
07 17 
07 20 
07 21 
0722 
07 23 
07 2A 
07 25 
07 26 
0727 
07 30 
07 31 
07 32 
0733 
07 3A 
07 35 
07 36 


5263 

JMP .-1 

2201 

ISZ IDTAPE 

7 500 

SNA 

2201 

I SZ IDTAPE 

77 10 

SPA CLA 

5322 

JMP WTLK 

7012 

RTR 

'20 

SNL CLA 

5277 

JMP .+3 

1601 

TAD I IDTAPE 

3201 

DCA IDTAPE 

6761 

DTRA 

0207 

AND ID0200 

1335 

TAD ID0002 

67 6A 

DTXA 

5601 

JMP I IDTAPE 

3327 OOPS, 

DCA FAUPA 

1327 

TAD FAUPA 

7006 

RTL 

7 00A 

RAL / WAS 

7510 

SPA 

5315 

JMP SELER 

7 300 

CLA CLL 


WE HAVE WRITE LOCK ERROR! 


1327 
5215 
7300 
AA22 
1067 
AA20 
5A6 3 
7300 
AA 22 
1066 
AA20 
5A63 
0000 
77 5 A 
7755 
0010 
0A00 
0130 
0002 
0000 


SELERj 


WTLKj 


/ KEEP THE AC 
/ USE IT 


/ YES 

TAD FAUPA /PUT THE AC BACK 

JMP IDSERR 
CLA CLL 
JMS I CRLF 

TAD SEL /GET THE ADDR OF ERROR 
JMS I TYPE 
JMP I RETRY 1 
CL A CLL 
JMS I CRLF 
TAD WTKLP 


/ GO AND ASK RETRY? 


JMS I TYPE 


/GET ADDR OF PRINT 


FAUPA, 

IDWC, 

I DC A, 

ID0010, 
ID0400, 
ID0130, 
ID0002, 
IDCODE, 


JMP I RETRY1 / GO AND ASK RETRY 


0 

775A 
77 55 
10 

A00 

130 

2 

0 


/ STORE THE ERROR REG B 
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1 400 

6034 

1401 

6031 

1402 

5201 

1403 

6036 

1404 

3042 

1405 

"* 42 

1406 

4421 

1407 

1042 

1410 

1060 

141 1 

7 450 

1412 

5461 

1413 

7 300 

1414 

1042 

1415 

1054 

1416 

7 450 

1417 

5254 

1420 

7 300 

1421 

1042 

1/iSS 

0056 

1423 

1057 

142/i 

7 440 

1425 

5247 

142' 

7 30G 

l/»27 

1 42 

1 /■ 3 

00 5 1 

1 4.2 1 

3 U 4 2 

1432 

1 0 43 

1 4 33 

7 M! 5 4 

1 434 

7 006 

l/> 3 5 

1 042 

1 43' 

3 043 

1437 

20 53 

1 440 

5200 

1441 

7 300 

1442 

3042 

1443 

1052 

1444 

305 3 

1445 

4422 

1446 

5200 

1447 

7 300 

1450 

1052 

1451 

3053 

1452 

3043 

1453 

5426 

1454 

7 300 

1455 

1052 

1456 

3053 

1457 

1044 

1460 

1043 

1461 

3032 

1462 

3043 

1463 

1432 

1464 

3033 


ii*?nJ INE T ° GET L0CATI0NS REQUIRED AND TYPEOUT CONTENTS 

* 1 HyjW 

C0NT22* KRS 
KSF 

JMP .-1 / WAIT FOR FIRST NUMBER 
KRB 

DCA LOC 

TAD LOC / BRING IT BACK 

<JMS I ECHO 

TAD LOC / GET IT 

TAD CTRLF / WAS IT CTRL/F ? 

SNA 


JMP I C0NT4 / YES GO AMD WRITE IT UP 

CLA CLL / REMOVE THE LEFTOVERS 

TAD LOC / BRING IT BACK AGAIN 

TAD SLASH / CIA OF SLASH 

SNA / WAS IT A SLASH 

JMP C0NT3 / YES 


CLA CLL /NO | 

TAD LOC / GET IT 

AND CHECK / MASK OUT ALL BUT ASCII CODF 

TAD ASCODE / CIA OF 260 

SKA / WAS IT LEGAL 

J.-iP SETwAT / NO GO AND RESET COUNT 

CLA CLL /YES 

'i'AD LOC / GET IT AGAIN 

MAS.- 1 / REMOVE THE RUB ISM 

DCA LuC / STOKE IT 
TAf) LOCI / Bring up the rest 

rsAL 


077 0 


HTL ' / MOVE IT ABOUT 

TAD LOC / ADD THE NEW BITS 

DCA LOCI / PUT IT AWAY AGAIN 

I SK COUNTS 

UMP C0NT22 /NOT ALL IN YET GO BACK FOR MOFF 

CLA CLL 


DCA LOC 
TAD COUNTS 
DCA COUNT3 
UM S I CRLF 
JMP CONTS2 
SETWA’iS CLA CLL 

TAD COUNTS 
DCA COUNT3 
DCA LOCI 
JMP I WHAT 
CONT3* CLA CLL 

TAD COUNTS 
DCA COUNT3 
■TAD LOCDMP 
TAD LOCI 
DCA L0C2 
DCA LOCI 
TAD I L0C2 
DCA CORE 


/ RESET COUNT 
/ MOVE UP PAPER 


/ GET POINTER 
/ RESET IT 

/ CLEAR THE STORAGE OUT 
/ GO TO WHAT ROUTINE 

/RESETS COUNTER 

/ ADD 1000 TO ADDR 

/ STORE THE COMPLETE ADDR 
/ CLEAR OUT »READY FOR NEXT TIME 
/GET THE CONTENTS OF THE ADDR 
/ STORE IT 
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/TAPE ALTERATION 


PAL 8 


PAGE 4-1 


1465 

1033 

TAD 

CORE 

1466 

7012 

RTR 


1467 

7 012 

RTR 


147 0 

7012 

RTR 


147 1 

7012 

RTR 


147 2 

7 010 

RAR 

/ 

147 3 

0051 

AND 

MASK 1 

1 47 4 

* ^55 

TAD 

ASCII 

147 5 

(421 

JMS 

I ECHO 

1 47 6 

7 300 

CL A 

CLL 

1477 

1033 

TAD 

CORE 

1500 

7012 

RTR 


1501 

7012 

RTR 


1502 

7012 

RTR 


150 3 

00 51 

AND 

MASK1 

1504 

1055 

TAD 

ASCI I 

1505 

4421 

JM S 

I ECHO 

1506 

7 300 

CL A 

CLL 

1507 

1033 

TAD 

CORE 

1510 

7012 

RTR 


1511 

7010 

RAR 

/ 1 

1512 

0051 

AND 

MASK 1 

1513 

1055 

TAD 

ASCII 

1514 

4421 

JMS 

I ECHO 

1515 

7 300 

CL A 

CLL 

1516 

1033 

TAD 

CORE 

1 517 

0777* 

AND 

MASK 

1520 

1055 

TAD 

ASCI I 

1521 

4421 

JM S 

I ECHO 

1522 

7 300 

CL A 

CLL 

1523 

10 37 

TAD 

SPACE 

1524 

4420 

JM S 

I TYPE 


1525 

1526 

1527 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 
1 540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1550 

1551 

1552 

1553 


/ BRING IT BACK 


/ MOVE IT TO GET THE FIRST PART 
/ GET RID OF THE REST 
/ ADD THE ASCII CODE 260 
/ TYPE IT 


/ GET IT AGAIN 


/ MOVE IT* REMOVE THE RUBBISH 
/ ADD TH CODE 


/GET IT 


ROTATE. 


6034 

6031 

5326 

6036 

3045 

1045 

4421 
7 300 

1045 

1046 
7 440 
5343 

4422 
5431 
7300 
1045 
0056 
1057 
7 440 
5372 
1045 
0051 
3040 


ALTER* 


KRS 
KSF 
JMP 
KRB 
DCA 
TAD 
JMS 
CL A 
TAD 
TAD 
SZA 
JMP 
JMS 
JMP 
CL A 
TAD 
AND 
TAD 
SZA 
JMP 
TAD 
AND 
DCA 


/ DO AS ABOVE 


/ GET IT YET AGAIN 


/ GET ADDR OF SPACE TYPE 
/ DO IT 


• - 1 

/ WAIT FOR INPUT 
ALT / SAVE IT 
ALT / GET IT 
I ECHO / ECHO IT 

CLL 

ALT / GET IT 

CARET / WAS IT CARRIAGE RETURN 

• + 3 

I CRLF 
I C0NT2 
CLL 
ALT 
CHECK 
ASCODE 

SET 1 

ALT / GET IT AGAIN 
MASK 1 

NEW / PUT IT AWAY 


/ WAS IT LEGAL 


/ NO GO AND RESET 
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/TAPE ALTERATION 


PALS 


PAGE 4-2 


1554 
1 555 

1556 

1557 

1560 

1561 
1 562 

1563 

1564 
1 56 5 

1566 

1567 
1 570 

1571 

1572 
157 3 
157 4 
157 5 
1576 


1041 
7 106 
7004 

1040 
3041 
2047 
5385 

’ 01 50 

3047 

1041 
3432 
3041 
4422 
5431 

7200 SET1 > 

1050 

3047 

3041 

5426 


TAD NEW1 / GET THE REST OE 

CLL RTL / CLEAR LINK AND ROTATE 
R AL 

tad new 


IT 


DC A N EW 1 
IS2 FOUR 
JNP ALTER 
TAD FOUR1 
DCA FOUR 
TAD NEWl 
DCA I L0C2 
DC A NEW 1 
UMS I CRLF 
<JNP I C0NT2 
CL A 


/ KEEP THE NEW CONTENTS 


/ CLEAR OUT FOR NEXT TINE 
/ UPSPACE 


TAD FOUR1 
DCA FOUR 
DCA NEW 1 
UNP I WHAT 


/ RESET POINTER 
/ CLEAR THE STORAGE OUT 
/GO TO WHAT ROUTINE 
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/tape alteration 


PAL 8 


PAGE 5 


1577 027 6 /H0UTIiN)E T0 WRITE BACK ONTO TAPE 


1600 

7300 

1601 

1030 

1602 

3205 

1603 

4434 

1604 

1 403 

1605 

; //00 

1606 

7 577 

1 607 

0777 

1610 

0035 

1611 

4422 

1612 

5462 

1613 

7 300 

1614 

6034 

1615 

6031 

1616 

5215 

1617 

6036 

1620 

3241 

1621 

1241 

1622 

4421 

1623 

1241 

1624 

1240 

1625 

7440 

1626 

5234 

1627 

1434 

1630 

7006 

1631 

7510 

1632 

5464 

1633 

5465 

1634 

7200 

1635 

107 0 

1636 

4420 

1637 

5213 

1640 

7447 

1641 

0000 


* 1600 
C0NT44, 


G022j 


W 2Bj 


CL A 
TAD 
DC A 
JMS 
1403 
0 

7 577 
777 

ERROR 


CLL 

ANSI 

W2B / p(JT 
I TAPE 


RETRY 2. 


QUEST 1. 


JMS 

JMP 

CL A 

KRS 

K SF 

JMP 

KRB 

DCA 

TAD 

JMS 

TAD 

TAD 

SEA 

JMP 

TAD 

RTL 

SPA 

JMP 

JMP 

CL A 


/ 

/ 

/ 

/ 

/ 

CRLF 

BLOCK 


/ GET BLOCK NO 
IT IN WRITE ROUTINE 
/ IDTAPE ROUTINE 


DTA1 


CODE TO WRITE 
BLOCK NO. 

WORD COUNT FOR ONE BLOCK 
WRITE ADDRESS -1 
IN CASE OF COCK UP 


CLL 


■ -1 


/ 

/ 

/ 


WAIT FOR ANSWER 
STORE IT 
GET IT 

/ ECHO 


RET 
RET 
I ECHO 
RET 

OK / CIA OF Y 


QUEST1 
I TAPE 


/ 

/ 


NOT 

GET 


IT 


A Y 
THE 


ADDR in IDTAPE 


/ 

G02 
GO 1 


WAS 


IT READ OR WRITE 
/WRITE 
/ READ 


TAD QUEST2 
JMS I TYPE 
JMP RETRY2 
OK, -331 

RET, 0 

$ 


/ GET ADDR OF QUESTION MARK 
/ TYPE IT 

/ GO AND GET MORE INPUT 
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/TAPE 


ALT 0045 
ASCII 0055 
BLOCK1 0206 
C0NT2 0031 
COKE 0033 
CH 0504 

ECHO '”021 
FAUPA 07 27 
GOl1 0260 

I DCOMT 0621 
ID0010 07 32 
K77 0461 

L0C2 0032 
NEW 1 0041 

OUT 0071 
QUESTS 0070 
SEL 0067 
SKI PM A 046 5 
STOP 0301 
THREE 0552 
TTY 0467 
TYPE 0020 
WHAT2 0027 
W2A 0262 


alteration 


ALTER 

1525 

ASCODE 

0057 

CARET 

0046 

C0NT22 

1400 

COUNT 

0277 

CRLF 

0022 

ERR 

0036 

FLAG 

0460 

G02 

0064 

IDSERR 

0615 

100130 

07 34 

LF 

0505 

MASK 

027 6 

NO 

0550 

PRINT 

0447 

QUEST3 

037 4 

SELER 

07 15 

SKIPPA 

0466 

SWI TCH 

0451 

TI TLE 

0025 

TTYQ 

0506 

TYPSP 

0430 

WHAT 3 

057 1 

W2B 

1605 


PAL 8 


ANS 

0546 

BLNO 

0024 

CHECK 

0056 

C0NT3 

1454 

COUNT1 

0300 

CTRLF 

0060 

ERROR 

0035 

FOUR 

0047 

G022 

1603 

IDTAPE 

0601 

ID0200 

0607 

LOC 

0042 

MASK 1 

0051 

NOE 

0543 

PS8 

007 2 

RET 

1641 

SEL 1 

0341 

SLASH 

0054 

TAPE 

0034 

TITLE1 

0302 

TTYQ1 

0023 

TYPSTG 

0400 

WTKLP 

0066 

YES 

0547 


PAGE 5- 

ANSI 

0030 

BLNO 1 

0553 

CONT 

0212 

C0NT4 

0061 

C0UNT2 

0052 

Cl 00 

0463 

ERROR 1 

027 0 

F0UR1 

0050 

I DCA 

07 31 

I owe 

07 30 

100400 

07 33 

LOCDMP 

0044 

M40 

0462 

OK 

1640 

QIJES 

0551 

RETRY1 

0063 

SETWAT 

1447 

SPACE 

0037 

T EM Q 

0456 

TSCC1 

0403 

TYCR 

047 5 

WHAT 

0026 

WTKLP1 

0355 

YESE 

0540 


ANS2 

027 5 

BLOCK 

0062 

CONTI 

0253 

C0NT44 

1600 

C0UNT3 

0053 

C240 

0464 

ERR 1 

0327 

GOl 

0065 

IDCODE 

07 36 

ID0002 

0735 

ID7 400 

0600 

LOCI 

0043 

NEW 

0040 

OOPS 

07 04 

QUEST1 

1634 

RETRY2 

1613 

SET 1 

157 2 

SPACE1 

0336 

TEMR 

0457 

TSCC2 

0413 

TYPAT 

0424 

WHAT1 

0564 

W TLK 

0722 
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